100 POKE 649,1
101 GOSUB20000:WAIT203,4:CLR
102 POKE 49990,0
103 FOR I=1TO20
104 POKE 49990+I,0
105 NEXTI
106 PRINTCHR$(8)
110 POKE 53280,08:POKE53281,08:PRINT""
129 DIM G1(2,3,4)
130 DIM KU(3,10)
131 DIM KO(3,4,11)
132 DIM W(11)
133 DIM WE(2,4)
134 DIM GE(32)
135 DIM AN(2,4)
136 DIM KG(12,2)
137 DIM WW(11)
138 DIM KA$(11,10)
139 DIM G2(2,4,11)
140 PA=2
141 DIM G3(2,11)
142 DIM G4(2,4)
143 DIM AT(2,11)
144 DIM KD(3,4,11)
145 DIM G5(2,5)
150 G=PEEK(49990)-INT(PEEK(49990)/3)*3+1:G$=STR$(G):G$="[144]"+RIGHT$(G$,LEN(G$)-1)
151 MM=14
152 FE=7
153 DIM K(3):DIMF(3)
154 DIM SN(2):DIMKN(2)
155 DIM FB$(5):DIM BH(3)
156 DIM DR(2)
210 FOR I1=1TO11
220 READW(I1):NEXTI1
230 DATA 0,0,0,0,10,8,4,3,1,1,1
240 FOR I=1TO8:READWW(I):NEXTI
250 DATA 2,2,2,2,11,10,4,3,0,0,0
255 FOR I1=1TO2
260 FORI=1TO4
270 G3(I1,I)=7:G4(I1,I)=5:G5(I1,I)=11
271 G3(I1,0)=4
280 NEXTI,I1
285 FORI1=1TO2
290 G4(I1,0)=1:G5(I1,0)=4
295 NEXTI1
310 PRINT"[147][145]SPIELER  01[146]                  SPIELER  02"
320 PRINT"[144][213][192][192][192][192][192][192][192][201][176][192][192][192][192][192][192][192][192][192][192][192][192][174][144][213][192][192][192][192][192][192][192][201]"
330 PRINT"[144][221]       [221][221]REIZZAHL:   [221]   [144][221]       [221]"
340 PRINT"[221][221][171][192][192][192][192][192][192][192][192][192][192][192][192][179]   [144][221][221]"
360 PRINT"[221][221][221]SPIELER:    [221]   [144][221][221]"
380 PRINT"[221][221][171][192][192][192][192][192][192][192][192][192][192][192][192][179]   [144][221][221]"
390 PRINT"[221][221][221]SPIEL:      [221]   [144][221][221]"
400 PRINT"[221][221][221]            [221]   [144][221][221]"
401 PRINT"[221][221][171][192][192][192][178][192][192][192][178][192][192][192][192][179]   [144][221][221]"
402 PRINT"[221][221][221]G:"+G$+"[221]H: [221]S:  [221]   [144][221][221]"
420 PRINT"[221][221][173][192][192][192][177][192][192][192][177][192][192][192][192][189]   [144][221][221]"
430 PRINT"[202][192][192][192][192][192][192][192][203][202][192][192][192][192][192][192][192][203]"
440 PRINT"   BIETEN = >LEER<   AUSSTEIGEN = >W<   "
445 AU$="> MOMENT! <":GOSUB2700
610 GOSUB2780
1010 FOR I1=1TO4
1020 FOR I2=0TO7
1030 L=L+1
1040 GE(L)=10*I1+I2
1050 NEXTI2
1060 NEXTI1
1105 FOR I=1TO100
1110 Z1=INT(RND(8)*32)+1
1120 Z2=INT(RND(8)*32)+1
1130 ZW=GE(Z1):GE(Z1)=GE(Z2):GE(Z2)=ZW
1140 NEXTI
1200 :
1210 FOR I1=1TO3
1220 FOR I2=1TO10
1230 KU(I1,I2)=GE((I1-1)*10+I2)
1240 NEXTI2
1250 NEXTI1
1260 SK(1)=GE(31):SK(2)=GE(32)
1269 GOSUB1300:GOSUB1780:GOSUB1797:GOSUB1500:GOSUB2550
1270 GOSUB1700:GOSUB1807:IFNQ=1THENGOSUB2900:GOSUB3286:GOSUB3200:GOTO1278
1271 GOSUB4450:IFSO(5)=0THENGOSUB2300
1272 IF SO(5)=1ANDSP<>3THENFE=FA(SP)
1273 IF SP<>3ANDSO(5)=0THENGOSUB2400:GOSUB4900:GOSUB2800
1274 IF SP<>3THENGOSUB2900:GOSUB3286:GOSUB3200:GOSUB2750:GOSUB4700
1275 IFSP=3ANDSO(5)=0THENGOSUB3286:GOSUB1780:GOSUB2600:GOSUB3286:GOSUB1780:GOSUB1797
1277 IF SP=3THENGOSUB2750:GOSUB3000:GOSUB4500:GOSUB3286:GOSUB3200
1278 GOSUB3100
1279 IF N1=3THENGOSUB8000:N1=1:AZ=2:GOSUB3119:YY=0:N1=2:AZ=3:GOSUB3119:YY=0:GOTO1282
1280 IF N1=1THENGOSUB3119:N1=2:AZ=2:YY=0:GOSUB3119:N1=3:AZ=3:GOSUB8000:YY=0:GOTO1282
1281 IF N1=2THENGOSUB3119:N1=3:AZ=2:GOSUB8000:YY=0:N1=1:AZ=3:GOSUB3119:YY=0:GOTO1282
1282 GOSUB7000:AZ=1:IF RU<11ANDSO(1)=0THEN1279
1283 IF RU<10ANDSO(1)=1THEN1279
1284 GOTO7400
1300 :
1310 FOR I2=1TO10:REM KARTENNUMMER
1320 FOR I1=1TO3:REM SPIELER
1330 FOR I3=1TO4:REM FARBE
1340 FOR I4=0TO7:REM WERT
1350 IF KU(I1,I2)=I3*10+I4ANDI4=0THENKO(I1,I3,0)=1:GOSUB1400:GOTO1370
1360 IF KU(I1,I2)=I3*10+I4THENKO(I1,I3,I4+4)=1:GOSUB1400
1370 NEXTI4,I3,I1,I2
1399 RETURN
1400 :
1401 IF I1=3THENRETURN
1405 IF I4>0THENAN(I1,I3)=AN(I1,I3)+1
1406 IF I4=0THENAN(I1,0)=AN(I1,0)+1
1407 IF I4=0THENAT(I1,I4)=AT(I1,I4)+1
1408 IF I4>0THENAT(I1,I4+4)=AT(I1,I4+4)+1
1420 IF I4>0THENWE(I1,I3)=WE(I1,I3)+W(I4+4)
1430 IF I4=0THENONI3GOSUB1440,1441,1442,1443
1435 RETURN
1440 V=25:GOTO1444
1441 V=23:GOTO1444
1442 V=20:GOTO1444
1443 V=16:GOTO1444
1444 WE(I1,0)=WE(I1,0)+V:RETURN
1500 :
1510 :
1511 FOR I1=1TO2
1512 SR=0: REM GRAND
1513 IF AT(I1,5)>1ANDAT(I1,6)>1ANDAT(I1,0)>2THEN SR=1
1514 IF AT(I1,5)>2ANDAT(I1,6)>1ANDAT(I1,0)>1THEN SR=1
1515 FOR I2=1TO4
1516 IF AN(I1,I2)>5 AND AT(I1,0)>1THENSR=1
1517 NEXTI2
1518 IF SR=1THENKK(I1)=1:FA(I1)=0:FL(I1)=0:RESTORE:FORS=1TO58:READSS:NEXTS
1519 NEXTI1
1520 FOR I1=1TO2
1521 IF KK(I1)=1THEN1559
1525 GR=-1
1530 FOR I2=1TO4
1540 IF WE(I1,I2)>GRTHENGR=WE(I1,I2):FA(I1)=I2
1550 NEXTI2
1559 NEXTI1
1560 :
1561 FOR I=1TO3:BB(I)=0:NEXTI
1562 FOR I1=1TO2
1563 FOR I2=1TO4
1564 IF I2<>FA(I1)THENBB(I1)=BB(I1)+WE(I1,I2)
1565 IF AN(I1,I2)=0THENBB(I1)=BB(I1)
1566 NEXTI2:BB(I1)=BB(I1)/(10-AN(I1,FA(I1))-AN(I1,0))
1567 NEXTI1
1568 FOR I1=1TO4:IF BB(I1)>6THENBW(I1)=2:GOTO1571
1569 IF BB(I1)>3THENBW(I1)=0:GOTO1571
1570 BW(I1)=-2
1571 NEXTI1
1572 :
1575 FL(1)=0:FL(2)=0:FL(3)=0
1580 FOR I1=1TO2:IFKK(I1)=1THEN1623
1590 A=WE(I1,0)
1591 RESTORE
1592 FORX=1TO22:READFF:NEXTX
1595 FOR I2=1TO9:REM ANZAHL FAELLE
1600 READ B1,B2,B3,B4
1610 IF(A>B1ANDA<B2)AND(WE(I1,FA(I1))<(B3-BW(I1))ORAN(I1,FA(I1))<B4)THENFL(I1)=1
1620 NEXTI2
1623 NEXTI1
1624 RETURN
1625 DATA -1,1,27,6
1630 DATA 15,21,18,4
1631 DATA 22,26,16,4
1632 DATA 35,37,09,3
1633 DATA 38,42,08,3
1634 DATA 42,46,09,3
1635 DATA 47,49,08,3
1636 DATA 58,69,05,2
1637 DATA 83,85,03,1
1700 :
1705 FOR I1=9TO12
1706 HO(5-I1+8)=I1
1707 NEXTI1
1708 HO(0)=24:HO(5)=23
1710 FOR I1=1TO2
1720 IF FL(I1)=1THENGOSUB4300:IFFL(I1)=0THENGOSUB4400
1721 IF RE(I1)=0ANDFL(I1)=1ANDBW(I1)=2THENRE(I1)=18:GOTO1778:REM UM KONTRA
1722 IF FL(I1)=1THEN1778
1723 IF FA(I1)=5THEN1765
1730 YY=KO(I1,1,0):BH(I1)=1+1
1740 FOR I2=2TO4
1750 IF KO(I1,I2,0)=YYTHENBH(I1)=BH(I1)+1:GOTO1760
1755 GOTO1765
1760 NEXTI2
1765 IF SN(I1)=1THENBH(I1)=BH(I1)+2
1766 IF HN(I1)=1THENBH(I1)=BH(I1)+1
1770 RE(I1)=HO(FA(I1))*BH(I1)
1778 NEXTI1
1779 RETURN
1780 :
1781 TA=2:N=0
1782 FOR I1=1TO4
1783 IF KO(3,I1,0)=1THENGG=I1:G1=I1:GOSUB9000:I2=0:GOSUB1790
1784 NEXT I1
1785 FOR I1=1TO4
1786 FOR I2=5TO11
1787 IF KO(3,I1,I2)=1THENGG=I1:G1=I2:GOSUB9000:GOSUB1790
1788 NEXTI2,I1:RETURN
1790 :
1791 PRINT"";TAB(TA);"[144][213][192][192]":N=N+1:KG(N,1)=I1:KG(N,2)=I2
1792 FOR I3=1TO9
1795 PRINTTAB(TA)"[144][221]"FF$LEFT$(KA$(GN,I3),2):NEXTI3:PRINTTAB(TA);"[144][202][192][192][145][145]"
1796 TA=TA+3:RETURN
1797 :
1798 PRINT""
1799 PRINTTAB(TA)"[144][192][192][192][192][192][201]"
1800 FOR I1=1TO9
1801 PRINTTAB(TA);FF$RIGHT$(KA$(GN,I1),5)"[144][221]"
1802 NEXTI1:PRINTTAB(TA);"[144][192][192][192][192][192][203][145]"
1803 RETURN
1807 :
1808 DATA 0,18,20,22,23,24,27,30,33,35,36,39,40,44,45,48,50,54,55,60,63,66,70
1809 DATA 72,77,80,81,84,88,90,96,99,100,108,110,117,120,121,126,130,132,135
1810 DATA 140,143,144,150,153,154,156,160,162,165,168,170,171,176,180,187,189
1811 DATA 190,192,198,200
1812 AU$="GRAND HD.(J/N)":GOSUB2700
1813 GETX$:IFX$=""OR(X$<>"J"ANDX$<>"N")THEN1813
1814 IF X$="J"THENFF=1:GB=18:RZ=18:SP=3:SO(5)=1:FE=0:AU$="HAND":GOSUB4600:GOTO2235
1815 AU$="":GOSUB2700:T=0
1820 RS=G+2:IFRS>3THENRS=RS-3
1822 RH=G+1:IFRH>3THENRH=RH-3
1824 FOR I1=1TO2
1825 GOSUB2140
1826 IF RS=3THENGOSUB1850:GOTO1834
1828 IF RH=3THENGOSUB1870:GOTO1834
1829 IF RE(RH)<RE(RS)THEN1832
1830 SP=RH:RS=G:IFI1=2THEN1833
1831 GB=RE(RS):IFGB>0THENGOSUB1880
1832 GOTO1835
1833 IF RE(RS)>GBTHENGB=RE(RS)
1834 IF GB=0ANDRE(RH)>0THENGB=18:NK=1
1835 GOTO1841
1836 SP=RS:RS=G:IFI1=2THEN1839
1837 GB=RE(RH):IF GB>0THENGOSUB1880
1838 GOTO1841
1839 IF RE(RH)>GBTHENGB=RE(RH)
1840 IF GB=0ANDRE(RS)>0THENGB=18:NK=1
1841 GOSUB2140:GOSUB2150
1842 NEXTI1
1843 IF GB=0ANDG=2THENRS=3:RH=1:GOSUB1850:IFGB>0THENSP=3
1844 GOSUB2231
1845 RETURN
1850 REM EXTERN SAGEN
1852 AU$="> SAGEN! <":GOSUB2700
1854 GETX$:IFX$<>" "ANDX$<>"W"THEN1854
1856 IF X$="W"THENSP=RH:RS=G:RETURN
1858 READ GB:IFGB=0THEN1858
1859 GOSUB2150
1860 IF RE(RH)<GBTHENRH=RS:SP=RS:RS=G:RETURN
1862 GOTO1854
1870 REM EXTERN HOEREN
1871 IF RE(RS)=0ORRE(RS)<GBTHENSP=3:RS=G:RETURN
1872 AU$="> HOEREN! <":GOSUB2700
1873 READHH:IFRE(RS)<HHTHENSP=RH:RETURN
1874 GB=HH:GOSUB2150:IFGB=0THEN1873
1875 GETX$:IFX$<>" "ANDX$<>"W"THEN1875
1876 IF X$="W"THENRH=RS:SP=RS:RS=G:RETURN
1878 GOTO1873
1880 IFI1=2THENRETURN
1882 READ HH:IFHH=GBTHENRETURN
1884 GOTO1882
2140 :
2141 PRINT"[144]";TAB(24);RIGHT$(STR$(RS),LEN(STR$(RS))-1)
2143 PRINT"[144]";TAB(20);RIGHT$(STR$(RH),LEN(STR$(RH))-1)
2144 RETURN
2150 REM AUSDRUCK GEBOT INTERN/EXTERN**
2160 PRINT"";TAB(22);"[144]";GB
2180 RETURN
2231 :
2234 RZ=GB:IFRZ=0THENNQ=1:FE=0:SP=0
2235 PRINT"";TAB(22);"[144]";RZ
2240 PRINT"";TAB(23);"[144]";SP
2250 IF SP=1THENPRINT"[153]SPIELER  01"
2260 IF SP=2THENPRINT"[153]";TAB(29);"SPIELER  02[145][145]"
2261 PRINT"";TAB(13);"[221]            [221]"
2262 PRINTTAB(14);"            "
2263 PRINTTAB(13);"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]"
2265 RETURN
2300 IFFE=6THENRETURN
2301 IF SP<>3THEN2305
2302 AU$="HAND(J/N)":GOSUB2700
2303 GETX$:IFX$=""OR(X$<>"J"ANDX$<>"N")THEN2303
2304 IF X$="J"THENSO(5)=1:GOSUB4600
2305 AU$="":GOSUB2700:IFSO(5)=1THENRETURN
2306 FOR I=1TO2
2307 U1=INT(SK(I)/10):U2=SK(I)-U1*10
2308 IFU2=0THENKO(SP,U1,0)=1
2309 IFU2>0THENKO(SP,U1,U2+4)=1
2310 IF SP<3THENI3=U1:I4=U2:I1=SP:GOSUB1400
2311 NEXTI
2330 RETURN
2400 :
2410 IF FA(SP)=0ANDAN(SP,0)=4THENSO(1)=1:KO(SP,0,4)=0:AU$="SPITZE":GOSUB4600
2411 IF AN(SP,0)>2ANDFA(SP)=0ANDBW(SP)=2THENSO(2)=1:AU$="SCHNEIDER":GOSUB4600
2412 IF FA(SP)=0THENFE=0:RETURN
2420 IF FA(SP)=5THENFL(SP)=1:GOSUB4300:IFFL(I1)=0THENFE=5:RETURN
2460 GR=-2
2470 FOR I=1TO4
2480 IF WE(SP,I)>GR THENGR=WE(SP,I):FE=I
2490 NEXTI
2492 IFAN(SP,FE)>6ANDBH(SP)>2ANDBW(SP)>-2THENSO(2)=1:AU$="SCHNEIDER":GOSUB4600
2495 IF AN(SP,FE)<7ORKO(SP,FE,11)=0THENRETURN
2496 KO(SP,FE,11)=0:SO(1)=1:AU$="SPITZE":GOSUB4600
2497 FOR I=1TO3
2498 G3(I,FE)=G3(I,FE)-1:G2(I,FE,11)=1
2499 NEXTI
2500 RETURN
2550 REM AUF SPITZE REIZEN
2560 FORI=1TO2
2570 IF FL(I)=1THEN2590
2580 IF AN(I,FA(I))>6THENSN(I)=1
2585 IF FA(I)=0ANDAN(I,0)=4THENSN(I)=1
2590 NEXTI
2595 RETURN
2600 :
2601 IF SO(5)=1THENRETURN
2610 AU$="> DRUECKEN ! <"
2620 GOSUB2700
2621 XX$=""
2625 FOR I1=1TO2
2630 GETX$:IFX$=""THEN2630
2635 IF X$="_"THENGOSUB2780:GOTO2621
2640 X=VAL(X$)
2650 IFX$="+"THENX=11
2660 IFX$="-"THENX=12
2670 IFX$="0"THENX=10
2680 IF X=0THENGOTO2630
2685 IF X$=XX$THEN2630
2686 PRINT"";TAB(4+(X-1)*3);"[144]";X$;"[145]"
2690 XX$=X$:DR(I1)=X:NEXTI1
2691 GETX$:IFX$=""ANDX$<>"_"ANDX$<>CHR$(13)THEN2691
2692 IF X$="_"THEN2635
2693 FOR I1=1TO2
2694 SU(SP)=SU(SP)+WW(KG(DR(I1),2))
2695 KO(3,KG(DR(I1),1),KG(DR(I1),2))=0
2696 NEXTI1
2697 AU$="":GOSUB2700
2698 RETURN
2700 :
2710 PRINT"";TAB(13);"              "
2720 IF LEN(AU$)>14THENSTOP
2730 PRINT"[144]";TAB(13+INT((14-LEN(AU$))/2));AU$
2740 RETURN
2750 :
2760 PRINT"    1  2  3  4  5  6  7  8  9     0   [145][145][145]"
2770 RETURN
2780 PRINT"    1  2  3  4  5  6  7  8  9  0  +  -[145][145][145]"
2790 RETURN
2800 :
2801 IF FE=5THENAU$="> MOMENT! <":GOSUB2700:GOSUB3900:GOTO2880
2802 IF RE(SP)>0THEN2809
2803 FOR I1=6TO7:REM HOCH DRUECKEN
2804 FOR I2=1TO4:IFI2=FETHEN2808
2805 IFKO(SP,I2,I1)=1THENAN(SP,I2)=AN(SP,I2)-1
2806 IFKO(SP,I2,I1)=1THENSU(SP)=SU(SP)+WW(I1):KO(SP,I2,I1)=0:G2(SP,I2,I1)=1:T2=T2+1
2807 IF T2=2THENRETURN
2808 NEXTI2,I1
2809 T1=T1+1:A1=6:A2=11:A3=1:IFT1>2THENA1=11:A2=5:A3=-1
2810 FOR I1=1TO4
2815 IF I1=FETHEN2830
2820 IF AN(SP,I1)=T1THENGOSUB2850
2825 IF T2=2THENRETURN
2830 NEXTI1
2840 IF T2<2THEN2809
2845 RETURN
2850 :
2860 FOR I2=A1TOA2STEPA3
2864 IF KO(SP,I1,I2)=0THEN2870
2865 KO(SP,I1,I2)=0:SU(SP)=SU(SP)+WW(I2):T2=T2+1:G2(SP,I1,I2)=0
2866 AN(SP,I1)=AN(SP,I1)-1
2867 IFT2=2THENRETURN
2870 NEXTI2
2875 RETURN
2880 :
2881 JK$="445362728291455464738393"
2883 FOR I2=1TO24STEP2
2884 J1=VAL(MID$(JK$,I2,1)):J2=VAL(MID$(JK$,I2+1,1))
2885 FOR I1=1TO4
2886 IFKO(SP,I1,J1)=0ORAN(SP,I1)>J2THEN2888
2887 LR=LR+1:KO(SP,I1,J1)=0:G2(SP,I1,J1)=1:AN(SP,I1)=AN(SP,I1)-1:IFLR=2THENRETURN
2888 NEXTI1,I2
2889 STOP
2900 :
2910 FB$(1)="KREUZ"
2920 FB$(2)="PIK  "
2930 FB$(3)="HERZ "
2940 FB$(4)="KARO "
2945 FB$(0)="GRAND"
2946 FB$(5)="NULL "
2948 IF NQ=1THENFB$(0)="[157]RAMSCH"
2950 PRINT"[144]";TAB(21);FB$(FE)
2951 IFFE=5AND(SP=3OR(SP<>3ANDSO(5)=1))THENAU$="> MOMENT! <":GOSUB2700:GOSUB3900
2952 IF FE=5THENRETURN
2953 FOR I3=1TO2
2954 G3(I3,FE)=11:IF FE=0THENG3(I3,0)=4
2955 IFSO(1)=1THENG3(I3,FE)=G3(I3,FE)-1
2956 NEXTI3:IFFE=0ORNQ=1ORNK=1THEN2970
2957 FORI7=1TO2
2958 AN(I7,FE)=AN(I7,FE)+AN(I7,0)
2959 IFAN(I7,FE)>3ANDBW(I7)>-2ANDI7<>SPANDRE(I7)>0THENSO(4)=1:AU$="KONTRA":GOSUB4600
2960 NEXTI7
2970 FOR I1=1TO3
2971 FOR I2=1TO4
2972 IF KO(I1,I2,0)=1THENKO(I1,FE,I2)=1:GOTO2974
2974 NEXTI2
2975 NEXTI1
2976 FORI3=1TO2:G4(I3,FE)=1:NEXTI3
2990 RETURN
3000 IF FF=1 THEN 3032
3001 IF NQ=1THENGOSUB2900:RETURN
3010 AU$=">FARBE(0-5)<":GOSUB2700
3015 PRINT" [144]0NULL [144]1KREUZ [144]2PIK [144]3HERZ [144]4KARO [144]5GRAND[145]"
3020 GETX$:IF(VAL(X$)=0ANDX$<>"0")ORVAL(X$)>5THEN3020
3025 AU$="":GOSUB2700
3030 FE=VAL(X$):IF FE=0THENFE=5
3031 IFVAL(X$)=5THENFE=0
3032 GOSUB2900:RETURN
3100 :
3109 N1=G+1:IFN1=4THENN1=1
3110 AZ=1:RU=1:REM RAUSKOMMER
3115 PRINT" SPIEL: EINGABE DER LINKEN KARTENNUMMER [145]"
3116 RETURN
3119 :
3120 UP=N1-1:IFUP=0THENUP=3
3130 OP=N1+1:IFOP=4THENOP=1
3135 KV=K(UP)
3139 IF NQ=1THENPO=AZ:GOTO3198
3140 IF N1=SPTHENPO=AZ:GOTO3199
3150 IF UP=SPANDAZ=1THENPO=1
3160 IF UP<>SPANDAZ=1THENPO=2
3170 IF UP=SPANDAZ=2THENPO=3
3175 IF UP<>SPANDAZ=2THENPO=4
3176 IF AZ=3THENPO=5
3177 ON PO GOTO 3300,3400,3500,3600,3700
3198 ON PO GOTO 10000,10100,10200
3199 ON PO GOTO 4000,4100,4200
3200 :
3220 N=0:TA=2:UJ=1
3225 IF FE=5THEN3260
3230 FOR I2=1TO11
3240 IF KO(3,FE,I2)=1ANDI2<5THENGG=I2:G1=I2:GOSUB9000:I1=FE:GOSUB1790:GOTO3250
3245 IF KO(3,FE,I2)=1THENGG=FE:G1=I2:GOSUB9000:I1=FE:GOSUB1790
3250 NEXT I2
3260 FOR I1=1TO4
3265 IF I1=FE THEN 3283
3270 FOR I2=4TO11
3280 IF KO(3,I1,I2)=1THENGG=I1:G1=I2:GOSUB9000:GOSUB1790
3282 NEXTI2
3283 NEXTI1
3284 GOSUB1797
3285 RETURN
3286 AU$="":GOSUB2700
3287 PRINT"";
3288 FOR I=1TO11
3289 PRINT"                                      "
3290 NEXTI
3291 RETURN
3300 :
3301 IF FE=5THEN4800
3303 FORI=1TO4:TF(I)=0:NEXTI
3304 DF=FA:FOR FA=1TO4
3305 IFG1(N1,SP,FA)=2ANDG1(N1,SP,FE)=2THENAA$="-3-3010511":GOSUB6500:IFYY=2THENFA=DF:RETURN
3306 IFG1(N1,SP,FE)=2THENAA$="-3-30105-1":GOSUB6500:IFYY=2THENFA=DF:RETURN
3307 IF G1(N1,SP,FA)=2ANDSO(1)=1THENAA$="-3-30107110506":GOSUB6500:IFYY=2THENFA=DF:RETURN
3308 NEXTFA:FA=DF
3310 GR=100
3320 FOR I1=1TO4
3325 IF I1=FETHENGOTO3340
3330 IF AN(N1,I1)<GR ANDTF(I1)=0THENGR=AN(N1,I1):FA=I1
3340 NEXTI1
3341 IF GR=100THENGOSUB5200:RETURN
3345 TF(FA)=1
3346 IF AN(N1,FA)=2ANDG2(N1,FA,5)=0ANDKO(N1,FA,6)=1ANDKO(N1,FA,5)=0THEN3310
3360 IF G1(N1,SP,FA)<2THENGOSUB5000:IF YY<2THEN3310
3365 IF YY=2THENRETURN
3380 IF G1(N1,SP,FA)=2THEN3310
3390 STOP
3400 :
3401 IF FE=5THEN4800
3402 IF FE>0THEN3406
3403 DF=FA:FOR FA=1TO4
3404 IF G1(N1,SP,FA)<2THENAA$="-3-30005-2":GOSUB6500:IFYY=2THENRETURN
3405 NEXTFA:FA=DF
3406 DF=FA:FOR FA=1TO4
3407 IFG1(N1,SP,FA)=2ANDG1(N1,SP,FE)=2THENAA$="-3-3010511":GOSUB6500:IFYY=2THENFA=DF:RETURN
3408 IFG1(N1,SP,FE)=2THENAA$="-3-30105-1":GOSUB6500:IFYY=2THENFA=DF:RETURN
3409 NEXTFA:FA=DF
3410 FORI=1TO4:TF(I)=0:NEXTI
3420 GR=-2
3430 FORI1=1TO4
3440 IF I1=FETHEN3460
3450 IF AN(N1,I1)>GR ANDTF(I1)=0THENGR=AN(N1,I1):FA=I1
3460 NEXTI1
3465 IF GR=-2THENGOSUB 5200:IFYY=2THENRETURN
3466 IF GR=-2THENSTOP
3470 IF G1(N1,SP,FA)<2THENGOSUB5000:IFYY<2THENTF(FA)=1:GOTO3420
3480 IF YY=2THENRETURN
3490 IF G1(N1,SP,FA)=2THENTF(FA)=1:GOTO3420
3500 REM MS POS 3 (2./1.SPIELER)*******
3501 IF FE<5THEN3510
3502 IF AN(N1,FA)>0THENAA$="-3-30011-104-1":GOSUB6500:RETURN
3503 GOTO3800
3510 IF AN(N1,FA)>0THENGOSUB5300:IFYY=2THENRETURN
3520 IF WW(KV)>3 AND G1(N1,OP,FA)=2ANDAN(N1,FE)>0THENGOSUB5400:IF YY=2THENRETURN
3525 IFWW(KV)>3ANDG4(N1,FA)=KVANDAN(N1,FE)>0ANDG1(N1,OP,FA)<2THENGOSUB5400:IFYY=2THENRETURN
3530 IFG1(N1,OP,FA)=1ANDKV<>G4(N1,FA)THENGOSUB5500:IFYY=2THENRETURN
3531 IF G1(N1,OP,FA)=2ANDG1(N1,OP,FE)<2ANDG3(N1,FE)>0THENGOSUB5500:IFYY=2THENRETURN
3540 IF KV>7OR(G1(N1,OP,FA)=1ANDKV=G4(N1,FA))THENGOSUB5600:IF YY=2THENRETURN
3545 GOSUB5600:IFYY=2THENRETURN
3546 STOP :REM FALL?
3600 REM MS POS 4 (2./1.MITSPIELER)****
3601 IF FE<5THEN3610
3602 IF AN(N1,FA)>0THENAA$="-3-300-1111104":GOSUB6500:RETURN
3604 GOTO 3800
3610 IF AN(N1,FA)>0THENGOSUB5700:RETURN
3620 IF AN(N1,FE)>0THENGOSUB5800:IFYY=2THENRETURN
3640 GOSUB5900:IF YY=2THENRETURN
3650 GOSUB5600:IF YY=2THENRETURN
3670 STOP:REM IMMER NOCH FALSCH?
3700 REM MS-POS-5**********************
3701 IF FE<5THEN3710
3702 IF AN(N1,FA)>0ANDHA=SPTHENAA$="-3-30011-104-1":GOSUB6500:RETURN
3703 IF AN(N1,FA)>0ANDHA<>SPTHENAA$="-3-3000411":GOSUB6500:RETURN
3704 GOTO3800
3710 IF AN(N1,FA)>0THENGOSUB6100:IFYY=2THENRETURN
3720 IFAN(N1,FE)>0ANDHA=SPANDWW(K(OP))+WW(K(UP))>7THENGOSUB6200:IFYY=2THENRETURN
3730 IF HA<>SPTHENGOSUB5500:IFYY=2THENRETURN
3750 GOSUB 5600:IFYY=2THENRETURN
3760 STOP
3800 REM UNTERPROGRAMM ABWURF NULL*****
3802 DF=FA
3803 FORFA=1TO4
3804 IFAN(N1,FA)=1THENAA$="-3-3000409":GOSUB6500:IFYY=2THENFA=DF:RETURN
3805 NEXTFA
3806 FA=DF
3807 AA$="0104000411":GOSUB6500
3808 IFYY=2THENRETURN
3809 STOP
3900 REM NEUORDNUNG KARTEN NULL *******
3901 FORI1=1TO2:FOR I2=1TO4:G3(I1,I2)=8:NEXTI2,I1
3910 FOR I1=1TO3:FORI2=1TO4:FORI3=0TO11
3920 KD(I1,I2,I3)=KO(I1,I2,I3)
3921 KO(I1,I2,I3)=0
3930 NEXTI3,I2,I1
3940 FOR I1=1TO3:FOR I2=1TO4:FORI3=0TO11
3950 IF I3=8ORI3=7THENKO(I1,I2,I3-2)=KD(I1,I2,I3)
3960 IF I3=5THENKO(I1,I2,4)=KD(I1,I2,I3)
3970 IF I3=0THENKO(I1,I2,7)=KD(I1,I2,I3)
3975 IF I1<>3ANDKD(I1,I2,0)=1THENAN(I1,I2)=AN(I1,I2)+1
3980 IF I3=6THENKO(I1,I2,8)=KD(I1,I2,I3)
3990 IF I3>8THENKO(I1,I2,I3)=KD(I1,I2,I3)
3995 NEXTI3,I2,I1
3996 RETURN
4000 :
4001 IF FE=5THENAA$="01040010091111":GOSUB6500:RETURN
4005 UU=G3(N1,FE)-AN(N1,FE)
4007 IF FE=0ANDUU>0THENAA$="-4-40001-20401":GOSUB6500:IFYY=2THENRETURN
4010 IFAN(N1,FE)>2ANDUU>0ANDFE>0THENAA$="-4-40001-204011107":GOSUB6500:IFYY=2THENRETURN
4020 AA$="0104010505":GOSUB6500:IFYY=2THENRETURN
4030 FOR FA=1TO4
4035 IF FA=FETHEN4050
4040 IFG3(N1,FE)=AN(N1,FE)THENRF=1:AA$="-3-30105-2":GOSUB6500:IFYY=2THENRF=0:RETURN
4041 HL=G1(N1,OP,FA)
4044 IFHL=2ANDG1(N1,UP,FA)=2ANDRF=1THENAA$="-3-3010511":RF=0:GOSUB6500:IFYY=2THENRETURN
4045 IFG1(N1,OP,FA)<2ANDG1(N1,UP,FA)<2THENAA$="-3-30105-2":GOSUB6500:IFYY=2THENRETURN
4050 NEXTFA:FA=DF
4060 AA$="0104011107":GOSUB6500:IFYY=2THENRETURN
4070 AA$="-4-40011070401":GOSUB6500:IFYY=2THENRETURN
4075 AA$="0104010605":GOSUB6500:IFYY=2THENRETURN
4076 AA$="-4-4000605":GOSUB6500:IFYY=2THENRETURN
4080 STOP
4100 :
4101 IF FE<5THEN4110
4102 IF AN(N1,FA)>0THENAA$="-3-300-1111104":GOSUB6500:RETURN
4103 GOTO3800
4110 AA$="-3-300-2-21101":GOSUB6500:IFYY=2THENRETURN
4119 HL=G2(N1,FA,5)
4120 IF(HL=0ANDKV<>5)OR(G2(N1,FA,6)=0ANDKV<>6)THENAA$="-4-40005110401":GOTO4150
4130 IF WW(KV)>3ANDG1(N1,OP,FA)=2THENAA$="-4-4-2-21109":GOTO4150
4140 IF WW(KV)>3ANDG1(N1,OP,FA)<2THENAA$="-4-405110401":GOTO4150
4145 GOTO4160
4150 GOSUB6500:IFYY=2THENRETURN
4160 FOR FA=1TO4:IFAN(N1,FA)=2ANDKO(N1,FA,6)=1THEN4162
4161 AA$="-3-3011108":GOSUB6500:IFYY=2THENFA=DF:RETURN
4162 NEXTFA:FA=DF
4170 AA$="-4-40011070401":GOSUB6500:IFYY=2THENRETURN
4180 AA$="0104000705":GOSUB6500:IFYY=2THENRETURN
4190 STOP
4200 :
4201 IF FE<5THEN4210
4202 IF AN(N1,FA)>0THENAA$="-3-300-11104-1":GOSUB6500:IFYY=2THENRETURN
4204 GOTO3800
4210 IFF(HA)=FATHENAA$="-3-300-10111-1":GOSUB6500:IFYY=2THENRETURN
4211 IF F(HA)=FEANDFA<>FETHENAA$="-3-3011101":GOSUB6500:IFYY=2THENRETURN
4220 IF(WW(K(OP))+WW(KV))>7ANDF(HA)<>FETHENAA$="-4-40005110401":GOSUB6500:IFYY=2THENRETURN
4230 IF(WW(OP)+WW(UP))>7ANDF(HA)=FETHENAA$="-4-400-101":GOSUB6500:IFYY=2THENRETURN
4240 GOTO4160
4300 :
4320 IF AT(I1,11)+AT(I1,10)<4THENRETURN
4330 IF AT(I1,9)+AT(I1,6)+AT(I1,0)<8-AT(I1,11)-AT(I1,10)THENRETURN
4340 IF AT(I1,5)+AT(I1,7)+AT(I1,8)>3THENRETURN
4350 FA(I1)=5:FL(I1)=0:RE(I1)=23:BH(I1)=1
4360 RETURN
4400 :
4405 FORI4=1TO2
4406 IF FA(I4)=5THENGOSUB4430:GOTO4415
4407 IF FA(I4)=0ANDAN(I4,0)>2ANDBW(I4)>-2THENHN(I4)=1
4410 IF BW(I4)=2ANDAN(I4,FA(I4))>5THENHN(I4)=1
4415 NEXTI4
4420 RETURN
4430 T=0
4431 FORI2=1TO4
4435 AG=AN(I4,I2):WG=WE(I4,I2):IFKO(I4,I2,0)=1THENWG=WG+4:AG=AG+1
4436 IF KO(I4,I2,6)=1THENWG=WG-5
4437 IFAG=0THEN4447
4440 IF WG/AG>1.7THENT=1
4447 NEXTI2
4448 IF T=0THENHN(I1)=1
4449 RETURN
4450 REM HANDAUSDRUCK
4451 IF SP=3ORFE=6THENRETURN
4460 IF HN(SP)=1THENSO(5)=1:AU$="HAND":GOSUB4600
4470 RETURN
4500 :
4510 IF FE=5THENRETURN
4515 IF(FE=0ANDKO(3,0,4)=0)OR(FE>0ANDKO(3,FE,11)=0)THEN4550
4520 AU$="SPITZE (J/N)":GOSUB2700
4530 GETX$:IFX$=""THEN4530
4540 IF X$="J"THENSO(1)=1:KO(3,FE,11)=0:GOSUB4600
4541 IF SO(1)=1ANDFE=0THENKO(SP,0,4)=0
4550 AU$="SCHNEIDER(J/N)":GOSUB2700
4560 GETX$:IFX$=""THEN4560
4570 IF X$="J"THENSO(2)=1:GOSUB4600
4580 IF X$="N"THEN4593
4590 AU$="SCHWARZ (J/N)":GOSUB2700
4591 GETX$:IFX$=""THEN4591
4592 IF X$="J"THENSO(3)=1:GOSUB4600
4593 AU$="":GOSUB2700:RETURN
4600 IF AU$="KONTRA"THENAU$=AU$+STR$(I7)
4601 IF RIGHT$(AU$,1)<>")"ANDRIGHT$(AU$,1)<>" "THENAU$=AU$+"     "
4602 IF 26-MM<LEN(AU$)-5THENMM=14:CF$=CF$+""
4603 IF AU$="SCHWARZ (J/N)"THENAU$="SCHN./SCHW.     ":CF$=LEFT$(CF$,LEN(CF$)-1)
4610 PRINT""+CF$;TAB(MM);"[144]"+LEFT$(AU$,LEN(AU$)-5)
4611 MM=MM+LEN(AU$)-5+1
4630 RETURN
4700 :
4701 IF SO(4)=1ORNQ=1ORNK=1THENRETURN
4705 AU$="KONTRA(J/N)":GOSUB2700
4706 GETX$:IFX$=""THEN4706
4707 IF X$="J"THENSO(4)=1:GOSUB4600
4708 AU$="":GOSUB2700:RETURN
4800 :
4810 FOR FA=1TO4
4815 IF G1(N1,SP,FA)=2THEN4840
4820 IF G3(N1,FA)=8THENAA$="-3-3001008":GOSUB6500:IFYY=2THENFA=DF:RETURN
4824 IF G3(N1,FA)=8THEN4840
4825 IF KO(N1,FA,G5(N1,FA))=1THENAA$="-3-300-3-3":GOSUB6500:FA=DF:RETURN
4829 HL=G1(N1,SP,FA)
4830 IFG3(N1,FA)<8ANDG3(N1,FA)>2ANDHL<2THENAA$="-3-3001107":GOSUB6500:IFYY=2THEN4860
4840 NEXTFA:FA=DF
4850 UR=1
4851 FOR IN=11TO4STEP-1:IN$=RIGHT$(STR$(IN),2)
4852 FOR FA=1TO4
4853 HL=G1(N1,SP,FA)
4854 IF(HL=2ANDUR=0)ORG1(N1,SP,FA)<2THENAA$="-3-30011"+IN$:GOSUB6500:IFYY=2THENRETURN
4855 NEXTFA
4856 NEXTIN
4857 IFUR=1THENUR=0:GOTO4851
4860 FA=DF:RETURN
4900 :
4905 IF FA(SP)=5THENRETURN
4910 YY=KO(SP,1,0):BH=1+1
4920 FOR I2=2TO4
4930 IF KO(SP,I2,0)=YYTHENBH=BH+1:GOTO4950
4940 GOTO4960
4950 NEXTI2
4955 LL=LEN(CF$)
4960 HB=HO(FE)*BH
4970 IFHB<RZTHENFE=FA(SP):SO(2)=0:SO(3)=0:IFSO(1)=1THENCF$=LEFT$(CF$,LL-1):SO(1)=0
4980 HB=HO(FE)*BH
4990 IF HB<RZANDKO(SP,FE,11)=1THENSO(1)=1:KO(SP,FE,11)=0:AU$="SPITZE":GOSUB4600
4995 RETURN
5000 :
5010 AA$="-3-301-2-21107":GOSUB6500
5020 RETURN
5100 :
5110 TA=2:IFN1=2THENTA=31
5120 GG=I3:G1=I2
5121 GOSUB9000
5131 KO(N1,I3,G1)=0
5139 PRINT""
5140 FOR I=1TO9
5150 PRINTTAB(TA);"       "
5160 NEXTI
5165 PRINT""
5170 FOR I=1TO9
5180 PRINTTAB(TA);FF$+KA$(GN,I)
5190 NEXTI
5191 GOSUB7200
5195 RETURN
5200 :
5210 AA$="0104011105":GOSUB6500:IFYY=2THENRETURN
5220 AA$="-4-400110704010605":GOSUB6500:IFYY=2THENRETURN
5300 :
5320 IFK(HA)>5THENAA$="-3-30005-1-101110704010605"
5321 IF K(HA)<6THENAA$="-3-300-101110704010605"
5330 GOSUB6500:IFYY<2THENSTOP
5340 RETURN
5400 :
5410 AA$="-4-40005110401":GOSUB6500:RETURN
5500 :
5505 DF=FA
5510 FOR FA=1TO4
5515 IF FA=FETHENGOTO5530
5520 IF G1(N1,SP,FA)=2THENAA$="-3-3000508":GOSUB6500:IFYY=2THENFA=DF:RETURN
5525 IF KO(N1,FA,6)=1ANDAN(N1,FA)=1THENAA$="-3-3000606":GOSUB6500:IFYY=2THENFA=DF:RETURN
5530 NEXTFA
5531 IFRU>4AND(SU(1)+SU(2)+SU(3)-SU(SP))<25THENAA$="0104010608":GOSUB6500:IFYY=2THENRETURN
5540 FA=DF:RETURN
5600 :
5610 AA$="0104011108":GOSUB6500:IFYY=2THENRETURN
5620 AA$="-4-400050704010811":GOSUB6500:IFYY=2THENRETURN
5630 AA$="0104010705":GOSUB6500:IFYY=2THENRETURN
5640 STOP
5700 :
5705 AA$="-3-300110704010605"
5710 IF K(UP)=G4(N1,F(UP))ANDG1(N1,OP,FA)<>2ANDFA<>FETHENAA$="-3-3000511"
5720 IF K(UP)=G4(N1,F(UP))ANDG1(N1,OP,FA)<>2ANDFA=FETHEN AA$="-4-40005110401"
5730 IF K(UP)<>G4(N1,FA)ANDKO(N1,FA,G4(N1,FA))=1THENAA$="-3-300-2-2"
5740 GOSUB6500:RETURN
5800 :
5810 IF (KO(N1,FE,5)=1ORKO(N1,FE,6)=1)AND G1(N1,OP,FA)<2THENAA$="-4-4000506"
5819 HL=G1(N1,OP,FA)
5820 IFKV>6AND(G2(N1,FA,5)=0ORG2(N1,FA,6)=0)ANDHL<2THENAA$="-4-400110704010605"
5821 IF(KV=6ORKV=7)ANDKV<>G4(N1,FA)ANDG1(N1,SP,FE)<2THENAA$="-4-400050611070401"
5830 GOSUB6500
5840 RETURN
5900 :
5910 IF KV>7ANDG1(N1,SP,FA)=2ANDFA<>FEANDG1(N1,SP,FE)<2THENGOTO5600
5915 IF G1(N1,SP,FA)=2ANDG1(N1,SP,FE)=2THENGOSUB5500:IFYY=2THENRETURN
5920 IF AN(N1,FE)=0ANDKV<>G4(N1,FA)THENGOSUB5600:IFYY=2THENRETURN
5930 RETURN
6100 :
6110 IF F(HA)=FEANDFA<>FEANDHA=SPTHENAA$="-3-3001105"
6115 IF F(HA)=FEANDFA<>FEANDHA<>SPTHENAA$="-3-3000511"
6120 IFF(HA)=FAANDFA<>FEANDK(HA)>6ANDG2(N1,FA,6)=0THEN RT=1
6121 IF RT=1ANDKO(N1,FA,6)=0THENAA$="-3-300-11105-1":RT=0
6122 IF RT=1ANDKO(N1,FA,6)=1THENAA$="-3-3000511":RT=0
6123 IF F(HA)=FAANDFA<>FEANDK(HA)>6ANDG2(N1,FA,6)=1THENAA$="-3-30005-111-1"
6125 IF F(HA)=FAANDFA<>FEANDK(HA)<7ANDHA=SPTHENAA$="-3-30005-111-1"
6126 IF F(HA)=FAANDFA<>FEANDK(HA)<7ANDHA<>SPTHENAA$="-3-30006110505"
6130 IF FA=FE AND HA=SPAND K(HA)=G4(N1,FA)THENAA$="-4-400110704010605"
6140 IF FA=FE AND HA<>SPTHENAA$="-4-40005110401"
6145 KP=K(OP)
6149 HL=G4(N1,FA)
6150 IFFA=FEANDHA=SPANDK(HA)<>HLANDWW(KV)+WW(KP)>2THENAA$="-4-400-101110704010605"
6151 IFFA=FEANDHA=SPANDK(HA)<>HLANDWW(KV)+WW(K(OP))<3THENAA$="-4-4001108-101-111"
6155 GOSUB6500:IFYY=2THENRETURN
6160 STOP
6200 :
6210 IF F(HA)<>FEANDHA=SPTHENGOSUB5400:IFYY=2THENRETURN
6220 AA$="-4-400-101":GOSUB6500
6230 RETURN
6500 :
6501 A(0,1)=(LEN(AA$)-6)/4
6503 A(0,4)=VAL(MID$(AA$,5,2))
6504 A(0,2)=VAL(MID$(AA$,1,2))
6505 A(0,3)=VAL(MID$(AA$,3,2))
6506 IF A(0,2)=-3THENA(0,2)=FA:A(0,3)=FA
6507 IF A(0,2)=-4THENA(0,2)=FE:A(0,3)=FE
6508 FOR I1=1TOA(0,1)
6509 A(I1,1)=VAL(MID$(AA$,7+(I1-1)*4,2))
6510 A(I1,2)=VAL(MID$(AA$,9+(I1-1)*4,2))
6511 IF A(I1,1)=-1THENA(I1,1)=K(HA)
6512 IF A(I1,2)=-1THENA(I1,2)=K(HA)
6513 IF A(I1,1)=-2THENA(I1,1)=G4(N1,A(0,2))
6514 IF A(I1,2)=-2THENA(I1,2)=G4(N1,A(0,2))
6515 IF A(I1,1)=-3THENA(I1,1)=G5(N1,A(0,2))
6516 IF A(I1,2)=-3THENA(I1,2)=G5(N1,A(0,2))
6517 NEXTI1
6518 FOR I1=1TOA(0,1)
6530 FOR I2=A(I1,1)TOA(I1,2)STEPSGN(A(I1,2)-A(I1,1))
6532 FOR I3=A(0,2)TOA(0,3)
6538 IF G1(N1,SP,I3)=2ANDA(0,4)=2THEN6550
6539 IF I3=FEANDA(0,4)=1THEN6550
6540 IF KO(N1,I3,I2)=1THENYY=2:GOSUB5100:RETURN
6550 NEXTI3,I2,I1
6560 YY=0:RETURN
7000 :
7005 AU$="":GOSUB2700
7006 N1=HA:RU=RU+1
7007 FORI=1TO2
7008 AN(I,F(I))=AN(I,F(I))-1
7009 NEXTI
7010 FOR I1=1TO2:FORI4=1TO3
7011 IF K(I4)<>G4(I1,F(I4))THEN7014
7012 IFG4(I1,F(I4))<11THENG4(I1,F(I4))=G4(I1,F(I4))+1
7013 IFG2(I1,F(I4),G4(I1,F(I4)))=1ANDG4(I1,F(I4))<11THEN7012
7014 IF K(I4)<>G5(I1,F(I4))THEN7017
7015 IFG5(I1,F(I4))>1THENG5(I1,F(I4))=G5(I1,F(I4))-1
7016 IFG2(I1,F(I4),G5(I1,F(I4)))=1ANDG5(I1,F(I4))>1THEN7015
7017 NEXTI4
7018 FORI2=0TO4:IF G3(I1,I2)-AN(I1,I2)=0THENFORI3=1TO3:G1(I1,I3,I2)=2:NEXTI3
7019 NEXTI2
7020 NEXTI1
7021 :
7027 SU(HA)=SU(HA)+WW(K(1))+WW(K(2))+WW(K(3))
7028 AU$="> LEERTASTE <":GOSUB2700
7029 WAIT203,60:AU$="":GOSUB2700
7030 GOSUB 7100
7040 GOSUB 3286:IFRU<11ANDSO(1)=0THENGOSUB3200
7045 IFRU<10ANDSO(1)=1THENGOSUB3200
7060 RETURN
7100 :
7110 PRINT""
7115 FOR I=1TO9
7120 PRINTTAB(2);"       ";TAB(31);"       "
7130 NEXTI
7140 RETURN
7200 :
7201 FA=DF:K(N1)=G1:F(N1)=GG
7202 IF K(N1)<5ANDFE<5THENF(N1)=FE
7203 IF AZ=1THENFA=F(N1):DF=FA
7204 FORI1=1TO2
7205 IF G3(I1,F(N1))=0THENFORI2=1TO3:G1(I1,I2,F(N1))=2:NEXTI2
7206 G2(I1,F(N1),K(N1))=1:G1(I1,N1,F(N1))=1:IFF(N1)<>FATHENG1(I1,N1,FA)=2
7207 IFFE=5THEN7210
7208 GT=WW(K(1))+WW(K(2))+WW(K(3))
7209 IFAZ=3ANDGT>3ANDF(SP)<>FAANDF(SP)<>FETHENG1(I1,SP,FE)=2
7210 FOR I9=1TO3:REM BLANKE ZEHN
7211 IF I9=SPTHEN7213
7212 GOSUB55555
7213 NEXTI9
7214 G3(I1,F(N1))=G3(I1,F(N1))-1
7215 NEXTI1
7219 IF AZ>1ANDF(N1)=FAANDK(N1)<K(HA)ANDF(HA)<>FEANDFA<>FETHENHA=N1
7220 IF AZ>1ANDFA<>FEANDF(N1)=FEAND F(HA)<>FETHEN HA=N1
7250 IF AZ>1ANDF(N1)=FEANDF(HA)=FEANDK(HA)>K(N1)THENHA=N1
7251 IF AZ=1THENHA=N1
7259 FORI8=1TO4:TF(I8)=0:NEXTI8
7260 IF HA<>SPANDSO(3)=1ANDAZ=3THENHA=SP:GOTO7265
7261 IFFE<5THENRETURN
7265 IF AZ=3ANDHA=SPTHENSU(SP)=0:AU$="> LEERTASTE <":GOSUB2700:WAIT203,60:GOTO7400
7270 RETURN
7400 :
7401 IF FE=5THENBH=1:IFSO(5)=1THENHO(5)=35
7402 IF FE=5ANDRU=11THENSU(SP)=120
7403 IF FE=5THEN7467
7404 IF NQ<1THEN7410
7405 RA=-2
7406 FORI=1TO3:IFSU(I)>RATHENRA=SU(I):SP=I
7407 NEXTI:SU(SP)=0
7408 TR$=" RAMSCH GIBT 60 PUNKTE! "
7409 POKE49990,PEEK(49990)+1:SS=60:GOTO7470
7410 BH=2
7420 FOR I=2TO4
7430 IFKO(SP,I,0)<>KO(SP,1,0)THEN7441
7435 BH=BH+1
7440 NEXTI
7441 SU(SP)=SU(SP)+(120-(SU(1)+SU(2)+SU(3)))
7459 IF SU(SP)<31 OR SU(SP)>90THENBH=BH+1:IFSU(SP)=0ORSU(SP)=120THENBH=BH+1
7460 IF SO(5)=1THENBH=BH+1
7461 IF SO(1)=1THENBH=BH+2
7462 IF SO(2)=1THENBH=BH+1
7463 IF SO(3)=1THENBH=BH+1
7464 IF SO(2)=1ANDSU(SP)<91THENSU(SP)=0:TR$=TR$+"NICHT SCHNEIDER! "
7465 IF SO(3)=1ANDSU(SP)<120THENSU(SP)=0:TR$=TR$+" NICHT SCHWARZ! "
7466 IF SO(1)=1ANDG3(1,FE)>1THENSU(SP)=0:TR$=TR$+"SPITZE NICHT DURCH! "
7467 SS=BH*HO(FE):IFSS<RZTHENSU(SP)=0:TR$=TR$+" UEBERREIZT! "
7468 POKE49990,PEEK(49990)+1:IFSU(SP)<61ANDSO(5)=0THENSS=SS*2
7469 IF SO(4)=1 THENSS=SS*2
7470 IF PEEK(49991)>0THENPOKE49991,PEEK(49991)-1:SS=SS*2:TR$=TR$+" BOCK"
7471 IF SO(4)=1 AND SU(SP)<61THENPOKE 49991,PEEK(49991)+3
7482 S3=PEEK(49990)
7483 GOSUB7600
7490 FORI=1TO5STEP2
7491 POKE 50000+I-1+(S3-1)*8,H((I+1)/2)
7492 POKE 50000+I+(S3-1)*8,L((I+1)/2)
7493 NEXTI
7494 POKE 50006+(S3-1)*8,SS/256
7495 POKE 50007+(S3-1)*8,SS-INT(SS/256)*256
7496 PRINT"[147]   SPIELER:[146]";SU(SP);TAB(20):SU(SP)=0
7497 PRINT"   TEAM:   [146]";SU(1)+SU(2)+SU(3)
7498 PRINT "[144]";TR$;""
7499 PRINT"  [176][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][174]"
7500 PRINT"  [221]SPIEL.1[221]SPIEL.2[221]  SIE  [221] SPIEL [221]"
7510 PRINT"  [171][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][179]"
7520 PRINT"  [221]       [221]       [221]       [221]       [221]"
7525 S4=S3-10:IFS4<1THENS4=1
7530 FOR I1=S4TOS3
7540 FOR I2=0TO7STEP2:R=INT(I2/2)
7550 A1=PEEK(50000+(I1-1)*8+I2)*256+PEEK(50001+(I1-1)*8+I2)
7555 AV=PEEK(50000+(I1-2)*8+I2)*256+PEEK(50001+(I1-2)*8+I2)
7556 A1$=RIGHT$(STR$(A1),LEN(STR$(A1))-1)
7557 IF A1=AVANDI2<6THENA1$="--"
7560 A2=2+R*8+7-LEN(A1$)
7570 PRINTTAB(2+R*8);"[221]";TAB(A2);"[144]"+A1$;"[145]"
7575 NEXTI2
7576 PRINTTAB(34)"[221]":NEXTI1
7577 PRINT"  [173][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][189]"
7578 PRINT"   BITTE F1 DRUECKEN!
7580 [146]203,4:[161]L$:[156]:[138]110
7600 [143] SPIELER GEW.
7601 [134] H(3):[134]L(3)
7605 M[178]1:[139] SU(SP)[177]60[167]M[178]2
7615 [129] I[178]1[164]5[169]2:R[178](I[170]1)[173]2
7616 [139] R[178]SP[175]M[178]1[167]7620
7617 [139] R[179][177]SP[175]M[178]2[167]7620
7618 H(R)[178][194](50000[170]I[171]1[170](S3[171]2)[172]8)
7619 L(R)[178][194](50000[170]I[170](S3[171]2)[172]8)
7620 [130]I
7622 [129]I[178]1[164]5[169]2:R[178](I[170]1)[173]2
7623 [139] R[178]SP[175]M[178]2[167]7628
7624 [139] R[179][177]SP[175]M[178]1[167]7628
7625 Q1[178][194](50000[170]I[171]1[170](S3[171]2)[172]8)[172]256[170][194](50000[170]I[170](S3[171]2)[172]8)
7626 Q1[178]Q1[170]SS
7627 H(R)[178][181](Q1[173]256):L(R)[178]Q1[171]H(R)[172]256
7628 [130]I
7630 [142]
8000 :
8010 AU$[178]">KARTE NR.?<":[141]2700
8015 [139] RU[178]10[176](RU[178]9[175]SO(1)[178]1[175]SP[178]3)[167]X[178]1:[137]8062
8020 [161]X$:[139]X$[178]""[167]8020
8030 X[178][197](X$):[139]X$[178]"0"[167]X[178]10
8040 [139] X[178]0[167]8020
8050 [139] X[177]11[171]RU[167]8020
8060 [139] KG(X,1)[179][177]FA[175]AZ[177]1[167][137]8080
8062 G1[178]KG(X,2):GG[178]KG(X,1)
8065 [141] 8100
8066 KO(3,KG(X,1),KG(X,2))[178]0
8067 KG(X,1)[178]0:KG(X,2)[178]0
8070 AU$[178]"":[141]2700
8071 [141]7200
8075 [142]
8080 [129] I1[178]1[164](11[171]RU[171]SO(1))
8085 [139] KG(I1,1)[178]FA[167]8020
8090 [130]I1
8095 [137]8062
8100 :
8120 [141] 3286
8121 G1[178]KG(X,2):GG[178]KG(X,1)
8125 [141]9000
8130 [153]""[166]15);"STOP(null)TANTANTANTANTANTANTANRIGHT$"
8140 [129] I1[178]1[164]9
8150 [153][166]15);"STOP(null)";FF$;KA$(GN,I1);"STOP(null)"
8160 [130]I1
8170 [153][166]15);"STOPMID$TANTANTANTANTANTANTAN(null)ONON"
9000 :
9001 :
9002 :
9003 GN[178]G1:[139]FE[179][177]5[176]G1[177]8[167]9010
9004 [139] G1[178]8[167]GN[178]6
9005 [139] G1[178]7[167]GN[178]GG
9006 [139] G1[178]6[176]G1[178]5[167]GN[178]G1[170]2
9007 [139] G1[178]4[167]GN[178]5
9010 [139]GN[179]5[167]GG[178]GN
9020 [139] GG[178]1[167]D$[178]"(null)"
9030 [139] GG[178]2[167]D$[178]"ATN"
9040 [139] GG[178]3[167]D$[178]"(null)"
9050 [139] GG[178]4[167]D$[178]"(null)"
9051 FF$[178]"":[139] GG[179]3[167]FF$[178]"STOP"
9053 [145]GN[137]9060,9060,9060,9060,9370,9470,9170,9270,9570,9670,9770
9060 KA$(GN,1)[178]"B     B"
9070 KA$(GN,2)[178]D$[170]"     "[170]D$
9080 KA$(GN,3)[178]" (null)TANTANTANRIGHT$ "
9090 KA$(GN,4)[178]" (null)(null) (null)(null) "
9110 KA$(GN,5)[178]" (null) (null) (null) "
9130 KA$(GN,6)[178]" (null)MID$TAN(null)(null) "
9140 KA$(GN,7)[178]" MID$TANTANTAN(null) "
9150 KA$(GN,8)[178]D$[170]"     "[170]D$
9160 KA$(GN,9)[178]"B     B"
9165 [142]
9170 KA$(7,1)[178]"K     K"
9180 KA$(7,2)[178]D$[170]"     "[170]D$
9190 KA$(7,3)[178]" (null)(null)(null)(null)RIGHT$ "
9200 KA$(7,4)[178]" (null)(null) (null)(null) "
9210 KA$(7,5)[178]" (null) (null) (null) "
9220 KA$(7,6)[178]" (null)(null)TANRIGHT$(null) "
9230 KA$(7,7)[178]" MID$TANTANTAN(null) "
9240 KA$(7,8)[178]D$[170]"     "[170]D$
9250 KA$(7,9)[178]"K     K"
9260 [142]
9270 KA$(8,1)[178]"D     D"
9280 KA$(8,2)[178]D$[170]"     "[170]D$
9290 KA$(8,3)[178]" (null)(null)(null)(null)RIGHT$ "
9300 KA$(8,4)[178]" (null)(null) (null)(null) "
9310 KA$(8,5)[178]" (null) O (null) "
9320 KA$(8,6)[178]" (null)MID$TAN(null)(null) "
9330 KA$(8,7)[178]" MID$TANTANTAN(null) "
9340 KA$(8,8)[178]D$[170]"     "[170]D$
9350 KA$(8,9)[178]"D     D"
9360 [142]
9370 KA$(5,1)[178]"A     A"
9380 KA$(5,2)[178]D$[170]"     "[170]D$
9390 KA$(5,3)[178]"       "
9400 KA$(5,4)[178]"       "
9410 KA$(5,5)[178]"   "[170]D$[170]"   "
9420 KA$(5,6)[178]"       "
9430 KA$(5,7)[178]"       "
9440 KA$(5,8)[178]D$[170]"     "[170]D$
9450 KA$(5,9)[178]"A     A"
9460 [142]
9470 KA$(6,1)[178]"10   10"
9480 KA$(6,2)[178]D$[170]D$[170]"   "[170]D$[170]D$
9490 KA$(6,3)[178]D$[170]"     "[170]D$
9500 KA$(6,4)[178]" "[170]D$[170]"   "[170]D$[170]" "
9510 KA$(6,5)[178]"  "[170]D$[170]" "[170]D$[170]"  "
9520 KA$(6,6)[178]" "[170]D$[170]"   "[170]D$[170]" "
9530 KA$(6,7)[178]D$[170]"     "[170]D$
9540 KA$(6,8)[178]D$[170]D$[170]"   "[170]D$[170]D$
9550 KA$(6,9)[178]"10   10"
9560 [142]
9570 KA$(9,1)[178]"9     9"
9580 KA$(9,2)[178]D$[170]"     "[170]D$
9590 KA$(9,3)[178]" "[170]D$[170]"   "[170]D$[170]" "
9600 KA$(9,4)[178]" "[170]D$[170]"   "[170]D$[170]" "
9610 KA$(9,5)[178]"   "[170]D$[170]"   "
9620 KA$(9,6)[178]" "[170]D$[170]"   "[170]D$[170]" "
9630 KA$(9,7)[178]" "[170]D$[170]"   "[170]D$[170]" "
9640 KA$(9,8)[178]D$[170]"     "[170]D$
9650 KA$(9,9)[178]"9     9"
9660 [142]
9670 KA$(10,1)[178]"8     8"
9680 KA$(10,2)[178]D$[170]"     "[170]D$
9690 KA$(10,3)[178]" "[170]D$[170]"   "[170]D$[170]" "
9700 KA$(10,4)[178]" "[170]D$[170]"   "[170]D$[170]" "
9710 KA$(10,5)[178]"       "
9720 KA$(10,6)[178]" "[170]D$[170]"   "[170]D$[170]" "
9730 KA$(10,7)[178]" "[170]D$[170]"   "[170]D$[170]" "
9740 KA$(10,8)[178]D$[170]"     "[170]D$
9750 KA$(10,9)[178]"8     8"
9760 [142]
9770 KA$(11,1)[178]"7     7"
9780 KA$(11,2)[178]D$[170]"     "[170]D$
9790 KA$(11,3)[178]" "[170]D$[170]"   "[170]D$[170]" "
9800 KA$(11,4)[178]"   "[170]D$[170]"   "
9810 KA$(11,5)[178]" "[170]D$[170]"   "[170]D$[170]" "
9820 KA$(11,6)[178]"       "
9830 KA$(11,7)[178]" "[170]D$[170]"   "[170]D$[170]" "
9840 KA$(11,8)[178]D$[170]"     "[170]D$
9850 KA$(11,9)[178]"7     7"
9860 [142]
10000 [143] RAMSCHEN  POS1
10005 [139] G3(N1,0)[171]AN(N1,0)[177]0[167]AA$[178]"0000000401":[141]6500:[139]YY[178]2[167][142]
10010 AA$[178]"010400-3-3":[141]6500:[139]YY[178]2[167][142]
10020 AA$[178]"0104001105":[141]6500:[139]YY[178]2[167][142]
10030 AA$[178]"0000000401":[141]6500:[142]
10100 [143] RAMSCHEN POS 2
10110 [139] AN(N1,FA)[177]0[167]AA$[178]"-3-300-111-101":[141]6500:[142]
10120 [139] WW(KV)[178]0[167]AA$[178]"-4-4000104":[141]6500:[139]YY[178]2[167][142]
10130 [129]I1[178]1[164]2:[129]FA[178]1[164]4
10131 [139] AN(N1,FA)[178]I1[167]AA$[178]"-3-3000511":[141]6500:FA[178]DF:[142]
10132 [130]FA,I1:FA[178]DF
10133 AA$[178]"0104010511":[141]6500:[139]YY[178]2[167][142]
10140 AA$[178]"0000000104":[141]6500:[142]
10200 [143] RAMSCHEN POS 3
10201 GH[178]WW(K(OP))[170]WW(KV)
10205 [139] AN(N1,FA)[178]0[167]10230
10210 [139] GH[177]7 [167]AA$[178]"-3-300-111-101":[141]6500:[139]YY[178]2[167][142]
10220 [139] GH[179]8 [167]AA$[178]"-3-300-101-111":[141]6500:[139]YY[178]2[167][142]
10230 [139] GH[179]8[167]AA$[178]"000000-2-2":[141]6500:[139]YY[178]2[167][142]
10240 [137]10130
20000 [151] 53280,5:[151]53281,8
20001 [153]"LOAD";
20010 [153]"  (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
20020 [153]"  (null)(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$(null)"
20030 [153]"  (null)(null)                                 (null)(null)"
20040 [153]"  (null)(null)  STEP  (null)STEP  (null) STEPWAITSTEPSTEP   (null)     WAIT(null)(null)"
20050 [153]"  (null)(null)   WAITSTEP (null) WAITSTEP (null) STEPWAITSTEP     WAIT(null)(null)"
20060 [153]"  (null)(null)   (null) (null) STEPWAITSTEP   WAIT(null)(null)"
20070 [153]"  (null)(null)  (null)  (null) WAIT(null)  (null)        WAIT(null)(null)"
20080 [153]"  (null)(null)    (null) WAIT(null)  WAIT(null)(null)   WAIT(null)(null)"
20090 [153]"  (null)(null)  (null)STEP (null)STEP  WAIT(null)(null)   WAIT(null)(null)"
20100 [153]"  (null)(null)  (null)  WAITSTEP(null)  WAITSTEP WAIT(null)(null)   WAIT(null)(null)"
20110 [153]"  (null)(null)                                 (null)(null)"
20120 [153]"  (null)(null)    (W) JOERN SCHELLER 1984      (null)(null)"
20130 [153]"  (null)(null)            STOPTOTOTOTOTOTO               (null)(null)"
20140 [153]"  (null)(null)            STOPFN    THEN               (null)(null)"
20150 [153]"  (null)(null)       STOP (null)(null)  FN(null)  (null)THEN   (null)(null)          (null)(null)"
20160 [153]"  (null)(null)STOP       (null)  (null) FN    +  (null)  (null)         (null)(null)"
20170 [153]"  (null)(null)STOP      (null)  (null) (null)SGN(null)RIGHT$(null)RIGHT$THEN (null) (null)  (null)        (null)(null)"
20180 [153]"  (null)(null)STOP     (null)      FN    +(null)      (null)       (null)(null)"
20190 [153]"  (null)(null)STOP    (null)    (null)(null) FN (null)RIGHT$ (null)  (null)(null)    (null)      (null)(null)"
20200 [153]"  (null)(null)STOP    (null) (null) (null) (null)(null)FN MID$(null)(null)  (null)RIGHT$ (null) (null) (null)      (null)(null)"
20210 [153]"  (null)(null)STOP     (null)  (null)(null)(null)RIGHT$FN (null)(null)  (null)(null)RIGHT$RIGHT$(null)  (null)       (null)(null)"
20220 [153]"  (null)(null)STOP      (null)  (null)MID$(null)FN (null)  (null)THENMID$(null)(null)  (null)        (null)(null)"
20230 [153]"  (null)(null)STOP       (null)  (null)TAB(FN(null)  (null)  TAB((null)  (null)         (null)(null)ONON"
20250 [142]
55555 [139] AZ[179][177]3[167][142]
55556 [139] G3(I1,FA)[179][177]5[167][142]
55557 [139] K(SP)[179][177]5[167][142]
55558 [139] K(I9)[179][177]6[167][142]
55559 G1(I1,I9,FA)[178]2:[142]
60000 [135]A:[153]A,:[137]60000